dblogr/

Cherry Tree Flowering Date

Historical series of phenological data for cherry tree flowering at Kyoto City

Data

http://atmenv.envi.osakafu-u.ac.jp/aono/kyophenotemp4/

KyotoFullFlower7.csv

Prepare Data

# devtools::install_github("derekmichaelwright/agData")
library(agData)

# Prep data
myCaption <- "derekmichaelwright.github.io/dblogr/ | Data: OPU"
dd <- read.csv("KyotoFullFlower7.csv") %>%
  filter(!is.na(Full.flowering.date..DOY.))

All Data

# Plot
mp <- ggplot(dd, aes(x = AD, y = Full.flowering.date..DOY.)) +
  geom_smooth(method = "loess", se = F, color = "black") +
  geom_line(alpha = 0.8, color = "darkgreen") +
  scale_x_continuous(breaks = seq(800, 2000, 100)) +
  theme_agData() +
  labs(title = "Cherry Tree Flowering Date - Kyoto City", 
       y = "Day of the Year", x = NULL, caption = myCaption)
ggsave("cherry_trees_01.png", mp, width = 12, height = 4)

Last 100 Years

# Prep data
xx <- dd %>% filter(AD > 1900)
# Plot
mp <- ggplot(xx, aes(x = AD, y = Full.flowering.date..DOY.)) +
  geom_smooth(method = "lm", se = F, color = "darkgreen") +
  geom_line(alpha = 0.8) +
  scale_x_continuous(breaks = seq(1900, 2020, 20), 
                     minor_breaks = seq(1900, 2020, 10)) +
  theme_agData() +
  labs(title = "Cherry Tree Flowering Date - Kyoto City",
       y = "Day of the Year", x = NULL, caption = myCaption)
ggsave("cherry_trees_02.png", mp, width = 6, height = 4)

dblogr/